home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 22 Graphics & Utilities / TUMBLR.BAS < prev    next >
Encoding:
BASIC Source File  |  2019-04-13  |  1.0 KB  |  31 lines
  1. 10 REM TUMBLER
  2. 11 K=7168:FORJ=32*8 TO 32*8+7:POKEK+J,0:NEXTJ
  3. 12 READ CH:IF CH=-1 THEN GOTO 20
  4. 14 POKE K,CH:K=K+1:GOTO 12
  5. 20 PRINTCHR$(147):X=64:POKE 36869,255
  6. 25 PRINT:PRINTSPC(6)CHR$(18)CHR$(30)"TUMBLER!"CHR$(146)CHR$(31)
  7. 30 POKE 36878,15:S=36875:B=128:E=138:PRINTCHR$(31)
  8. 40 FOR M=B TO E STEP 5:POKE S,M:NEXT M:POKE S,0
  9. 50 PRINTTAB(80-X)CHR$(X)CHR$(32)CHR$(145)
  10. 60 FOR M=B TO E STEP 5:POKE S,M:NEXT M:POKES,0
  11. 70 IF X=79 THEN POKE 36869,240:PRINTCHR$(147):END
  12. 80 FOR T=1 TO 150:NEXT T
  13. 90 X=X+1:B=B+5:E=E+5:GOTO 40
  14. 500 REM TUMBLER CHARACTERS
  15. 505 DATA24,24,127,24,56,40,40,40
  16. 510 DATA96,96,60,50,240,72,36,18
  17. 515 DATA96,98,60,16,114,78,66,192
  18. 520 DATA50,52,152,113,50,44,32,24
  19. 525 DATA0,4,104,113,62,48,73,134
  20. 530 DATA65,34,20,217,242,60,192,0
  21. 535 DATA65,34,148,89,50,252,192,0
  22. 540 DATA48,8,228,28,12,63,40,0
  23. 545 DATA0,64,32,24,248,28,42,34
  24. 550 DATA0,64,32,24,248,28,42,34
  25. 555 DATA1,2,4,254,30,40,72,132
  26. 560 DATA38,22,8,24,52,82,144,144
  27. 565 DATA12,76,56,14,8,24,36,34
  28. 570 DATA48,178,84,56,16,16,40,68
  29. 575 DATA177,178,84,56,16,16,40,68
  30. 580 DATA48,48,16,56,84,16,16,48,-1
  31.